        PROGRAM main
        use h1
        implicit none
        INCLUDE 'mpif.h'
        character*9 ::postname,arg
        integer::ii,jj,i,j,ierr, arg1
        integer :: status
        write(arg,"(I0)") 2
        arg1=30
        call get_command_argument(1, arg, status=status)
  
        if (status == 0) then
                read(arg,*)arg1
        end if
  
        
        include 'inc/defmpi.inc'
        write(postname, '(a,i2.2)') "postvar",myprcid
        !arg1=arg1*2
        !write(*,*)arg1
        CALL mygetvar_c(postname,mytid,arg1)
        CALL MPI_FINALIZE ( ierr )
        
        END PROGRAM
